home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / boot / GetMouseInput.lha / GetMouseInput / SampleScript < prev   
Encoding:
Text File  |  1996-12-18  |  362 b   |  19 lines
  1. ; Example startup-sequence file using GetMouseInput V1.01
  2.  
  3. Assign ENV: RAM:
  4. GetMouseInput
  5.  
  6. If $MouseInput EQ 1
  7.    Execute S:Startup1 ; Left mouse button pressed
  8. Else
  9.    If $MouseInput EQ 2
  10.       Execute S:Startup2 ; Right mouse button pressed
  11.    Else
  12.       Execute S:NormalStartup-Sequence ; No buttons pressed
  13.    EndIf
  14. EndIf
  15.  
  16. UnSetEnv $MouseInput
  17.  
  18. EndCLI >NIL:
  19.